home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / AMP-L-SOFT DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  56 lines
  1. 10  REM  **********************
  2. 20  REM  * AMP-L-SOFT DEMO    *
  3. 30  REM  * COPYRIGHT (C) 1982 *
  4. 40  REM  * COPYRIGHT (C) 1982 *
  5. 50  REM  * BY MICRO-SPARC INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  REM  DEMO TONE
  9. 90  HOME : VTAB 5: INVERSE : PRINT "TONE DEMO ": NORMAL 
  10. 100  INPUT "ENTER PITCH AND DURATION OF TONE ";P,D
  11. 110  & N(P,D)
  12. 120  PRINT 
  13. 130  REM  DEMO FREE FORMAT INPUT
  14. 140  GOSUB 10000: HOME : VTAB 5: INVERSE : PRINT "DATA INPUT DEMO": NORMAL 
  15. 150  PRINT : PRINT "ENTER A STRING WITH ANY CHARACTERS": PRINT 
  16. 160  & I(IN$)
  17. 170 A$(1) = IN$
  18. 180  PRINT A$(1)
  19. 190  REM  DEMO SUBSTRING SEARCH
  20. 200  PRINT 
  21. 210  GOSUB 10000: HOME : VTAB 5: INVERSE : PRINT "SUBSTRING SEARCH DEMO ": NORMAL 
  22. 220  INPUT "ENTER SUBSTRING TO SEARCH ";A$
  23. 230 P% = 1
  24. 240 B$ = A$(1)
  25. 250  & B(B$,A$,P%)
  26. 260  PRINT 
  27. 270  PRINT "THE SUBSTRING '";A$;"' BEGINS IN LOC ";P%
  28. 280  GOSUB 10000: HOME : VTAB 5: PRINT : INVERSE : PRINT "HEX CONVERSION DEMO": NORMAL 
  29. 300  INPUT "ENTER NUMBER 1-255 ";N
  30. 310  PRINT : PRINT "THE HEX EQUIVALENT IS:": PRINT "$";
  31. 320  & C(N,0,0,64986,C%)
  32. 330  GOSUB 10000: HOME : VTAB 5: PRINT : INVERSE : PRINT "NUMBER OF SPACES DEMO": NORMAL 
  33. 340  PRINT : INPUT "ENTER NUMBER OF SPACES (0-230) ";SP%
  34. 345  PRINT  CHR$(219);
  35. 350  & C(0,SP%,0,63818,C%)
  36. 351  PRINT  CHR$(221)
  37. 360  GOSUB 10000: HOME : VTAB 5: INPUT "ENTER THE # OF STRINGS TO SORT ";N
  38. 370  DIM R$(N +1),T%(N +1)
  39. 380 B$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  40. 390  TEXT : HOME : VTAB 5: FLASH : PRINT "BUILDING STRINGS ": NORMAL 
  41. 400  FOR F = 1 TO N: FOR G = 1 TO 5
  42. 410 R$(F) = R$(F) + MID$ (B$, INT( RND(1) *24) +1,1)
  43. 420 T%(F) = F
  44. 430  NEXT G,F
  45. 440  HOME : VTAB 5: PRINT "PRESS RETURN TO LIST RAW DATA": INPUT "PRESS CTRL-S TO PAUSE/RESUME ";XX$
  46. 450  FOR F = 1 TO N: PRINT R$(F),T%(F): NEXT F: PRINT : INPUT "PRESS RETURN FOR SORT ";XX$
  47. 460  PRINT "SORT BEGUN"
  48. 470  & A(R$,T%,1,N)
  49. 480  PRINT "SORT ENDED"
  50. 490  PRINT "PRESS RETURN TO LIST SORTED DATA": INPUT "PRESS CTRL-S TO PAUSE/RESUME ";XX$
  51. 500  HOME : VTAB 5: FOR F = 1 TO N
  52. 510  IF R$(F) >R$(F +1)  THEN  INVERSE 
  53. 520  PRINT F;: POKE 36,10: PRINT R$(F);: POKE 36,20: PRINT T%(F): NEXT F
  54. 530  NORMAL : GOSUB 10000
  55. 540  HOME : VTAB 12: PRINT "END OF DEMO": END 
  56. 10000  PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE =>";: GET A$: PRINT : RETURN